home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / win_m_p / mtrash.zip / AMITRASH.SMM next >
INI File  |  1992-08-31  |  4KB  |  281 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~default.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet IID
  13. [lang]
  14.     1
  15. [desc]
  16.     
  17.     
  18.     
  19.     
  20.     
  21.     715280076
  22.     14
  23.     715271653
  24.     89
  25.     2
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [tag]
  50.     Body Text
  51.     2
  52.     [fnt]
  53.         Times New Roman
  54.         240
  55.         0
  56.         49152
  57.     [algn]
  58.         1
  59.         1
  60.         0
  61.         0
  62.         0
  63.     [spc]
  64.         33
  65.         273
  66.         1
  67.         0
  68.         0
  69.         1
  70.         100
  71.     [brk]
  72.         4
  73.     [line]
  74.         8
  75.         0
  76.         1
  77.         0
  78.         1
  79.         1
  80.         1
  81.         10
  82.         10
  83.         1
  84.     [spec]
  85.         0
  86.         0
  87.         
  88.         0
  89.         1
  90.         1
  91.         0
  92.         0
  93.         0
  94.         0
  95.     [nfmt]
  96.         280
  97.         1
  98.         2
  99.         .
  100.         ,
  101.         $
  102.     Body Text
  103.     0
  104.     0
  105. [l1]
  106.     0
  107. [pg]
  108.     2
  109.     44 0 9 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  110.     48 0 36 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  111. [edoc]
  112. <:#284,9360><:f,2Times New Roman,>FUNCTION AMITRASH1()
  113.  
  114. <:#284,9360><:f,2Times New Roman,>LibHand=DLLLocate<:f><:f,2Times New Roman,>("User","FindWindow","IJ<:f><:f,2Times New Roman,>C<:f><:f,2Times New Roman,>")<:f>
  115.  
  116. <:#284,9360><:f,2Times New Roman,>
  117.  
  118. <:#284,9360><:f,2Times New Roman,>DEFSTR NULL,WinName, DocName, DocPath, LastChar, DumpFile, Executable, DumpDone
  119.  
  120. <:#284,9360><:f,2Times New Roman,>NULL=0<:f>
  121.  
  122. <:#284,9360><:f,2Times New Roman,>WinName<:f><:f,2Times New Roman,>="Steve's McTrash Dumpster"
  123.  
  124. <:#284,9360><:f,2Times New Roman,>
  125.  
  126. <:#284,9360>IsRunning=DLLCall(LibHand,NULL,WinName)
  127.  
  128. <:#284,9360>
  129.  
  130. <:#284,9360>DLLFreeLib(LibHand)
  131.  
  132. <:#284,9360>
  133.  
  134. <:#284,9360><:f,2Times New Roman,>If IsRunning=0
  135.  
  136. <:#568,9360><:f,2Times New Roman,>  Message("Steve's McTrash Dumpster isn't running; please start it and then try deleting this file again.")
  137.  
  138. <:#284,9360><:f,2Times New Roman,>EndIf
  139.  
  140. <:#284,9360><:f,2Times New Roman,>
  141.  
  142. <:#284,9360><:f,2Times New Roman,>DocPath=GetDocInfo$(2)
  143.  
  144. <:#284,9360><:f,2Times New Roman,>
  145.  
  146. <:#284,9360><:f,2Times New Roman,>If DocPath="" <:f>
  147.  
  148. <:#284,9360><:f,2Times New Roman,>  Message("This file has not yet been saved 
  149. <:f><:f,2Times New Roman,>and cannot be deleted!")
  150.  
  151. <:#284,9360><:f,2Times New Roman,>  Goto Done
  152.  
  153. <:#284,9360><:f,2Times New Roman,>EndIf
  154.  
  155. <:#284,9360><:f,2Times New Roman,>
  156.  
  157. <:#284,9360><:f,2Times New Roman,>DocName=GetDocInfo$(1)
  158.  
  159. <:#284,9360><:f,2Times New Roman,>
  160.  
  161. <:#284,9360><:f,2Times New Roman,>LastChar=Right$(DocPath,1)
  162.  
  163. <:#284,9360><:f,2Times New Roman,>
  164.  
  165. <:#284,9360><:f,2Times New Roman,>If LastChar="\"
  166.  
  167. <:#284,9360><:f,2Times New Roman,>  DumpFile<:f><:f,2Times New Roman,>=strcat$(DocPath, DocName)
  168.  
  169. <:#284,9360><:f,2Times New Roman,>Else
  170.  
  171. <:#284,9360><:f,2Times New Roman,>  <:f><:f,2Times New Roman,>DumpFile<:f><:f,2Times New Roman,>=strcat$(DocPath, "\",DocName)
  172.  
  173. <:#284,9360><:f,2Times New Roman,>EndIf
  174.  
  175. <:#284,9360><:f,2Times New Roman,>
  176.  
  177. <:#284,9360>Executable=strcat$("ZAP=",DumpFile)
  178.  
  179. <:#284,9360>
  180.  
  181. <:#284,9360>FileChanged(1,0)
  182.  
  183. <:#284,9360>FileClose()
  184.  
  185. <:#284,9360>ChanID=DDEInitiate("McTrash","Form1")
  186.  
  187. <:#284,9360>DDEExecute(ChanID, Executable)
  188.  
  189. <:#284,9360>DDETerminate(ChanID)
  190.  
  191. <:#284,9360>
  192.  
  193. <:#284,9360>DumpDone=strcat$(DumpFile," has been deleted!")
  194.  
  195. <:#284,9360>Beep()
  196.  
  197. <:#284,9360>StatusBarMsg(DumpDone)
  198.  
  199. Pause(35)
  200.  
  201. <:#284,9360>StatusBarMsg("")
  202.  
  203. <:#284,9360>
  204.  
  205. <:#284,9360><:f,2Times New Roman,>Done:
  206.  
  207. <:#284,9360><:f,2Times New Roman,>END FUNCTION<:f>
  208.  
  209. >
  210.  
  211. [Embedded]
  212. 00003413
  213. >
  214. [macsum] 1
  215. AMITRASH1 0 0 12 0
  216. [macse]
  217. 14 AMITRASH1
  218. 0 283 "User" "FindWindow" "IJC"
  219. 13
  220. 8 1
  221. 5 0
  222. 8 2
  223. 7 "Steve's McTrash Dumpster"
  224. 8 3
  225. 0 284 "{1}" "{2}" "{3}"
  226. 13
  227. 8 10
  228. 0 298 "{1}"
  229. 6 10
  230. 5 0
  231. 18 0
  232. 11 00000281
  233. 0 3 "Steve's McTrash Dumpster isn't running; please start it and then try deleting this file again."
  234. 0 279 2
  235. 13
  236. 8 5
  237. 6 5
  238. 7 ""
  239. 18 0
  240. 11 00000405
  241. 0 3 "This file has not yet been saved and cannot be deleted!"
  242. 10 00000742
  243. 0 279 1
  244. 13
  245. 8 4
  246. 0 807 "{5}" 1
  247. 13
  248. 8 6
  249. 6 6
  250. 7 "\"
  251. 18 0
  252. 11 00000518
  253. 0 16 "{5}" "{4}"
  254. 13
  255. 8 7
  256. 10 00000549
  257. 0 16 "{5}" "\" "{4}"
  258. 13
  259. 8 7
  260. 0 16 "ZAP=" "{7}"
  261. 13
  262. 8 8
  263. 0 34 1 0
  264. 2 147 1
  265. 0 8 "McTrash" "Form1"
  266. 13
  267. 8 11
  268. 0 11 "{11}" "{8}"
  269. 0 9 "{11}"
  270. 0 16 "{7}" " has been deleted!"
  271. 13
  272. 8 9
  273. 0 801
  274. 0 789 "{9}"
  275. 0 274 35
  276. 0 789 ""
  277. 6 0
  278. 15
  279. 9
  280. 00003438
  281.